[delphi]数据录入是的控制问题

来源：百度知道 编辑：UC知道 时间：2024/05/25 08:04:45
edit1是记录编号的（如S001，T001），如果其中第一个字母是S则在添加记录时就要在edit2中写入成绩，或则无法添加，如果第一个字母是T就不需要在edit2中写入成绩就可以添加。应该在添加按钮那里怎么样写代码。谢谢

在edit1的onchange里面写判断代码,然后控制edit2的属性,在添加按扭里写保存代码

procedure TForm1.Button1Click(Sender: TObject);
var ch:string;
begin
ch:=copy(edit1.Text,1,1) ;
if ch='T' then
showmessage('添加');
if ch='S' then
begin
edit2.setfocus;
if edit2.Text='' then
showmessage('无法添加,请输入成绩');
end;

end;

不知道你是不是要表达这意思？具体要添加到哪里你没说。
不过希望我写的对你能有帮助！^_^